home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam 3 / Grand Slam 3.iso / 029 / mdva.arj / VORTAC.SCM < prev   
Text File  |  1995-08-24  |  2KB  |  77 lines
  1. ;
  2. ;   Standard VORTAC Antenna Array  Macro
  3. ;
  4. ;   Macro( sttower.scm  Lat  Lon  )
  5. ;                        1    2
  6. ;
  7. Area( 5 %1  %2 19 )
  8.     PerspectiveCall( :T1 )
  9.     Jump( : )
  10.  
  11. :T1
  12.     Perspective
  13.     RefPoint( 7  :B3 0.3048  %1  %2 )
  14.     RotatedCall( :T11 0 0 30 )
  15.     RotatedCall( :T11 0 0 60 )
  16.     RotatedCall( :T11 0 0 90 )
  17.     RotatedCall( :T11 0 0 120 )
  18.     RotatedCall( :T11 0 0 150 )
  19.     RotatedCall( :T11 0 0 180 )
  20.     RotatedCall( :T11 0 0 210 )
  21.     RotatedCall( :T11 0 0 240 )
  22.     RotatedCall( :T11 0 0 270 )
  23.     RotatedCall( :T11 0 0 300 )
  24.     RotatedCall( :T11 0 0 330 )
  25.     RotatedCall( :T11 0 0 360 )
  26.     Return
  27.  
  28. :T11
  29.     ShadowCall( :T2 )
  30. :T2
  31.     Points( 0
  32.     0 100 0     -1   98   4   1   98   4
  33.                 -2   94   6   2   94   6
  34.                 -2   62   6   2   62   6
  35.                 -5   30  17   5   30  17
  36.                 -6   10  20   6   10  20
  37.                -19    6  56  19    6  56
  38.                -19    0  56  19    0  56
  39.     )
  40.     IfVarRange( :far 37E -3000 3000 )
  41.     IfVarRange( :far 386 -3000 3000 )
  42.     Call( :main )
  43.     Return
  44.  
  45. :far
  46.     Call( :beacon )
  47.     Return
  48.  
  49. :main
  50.     SurfaceColor( 4 F0 )
  51.     Poly( a 0 1 2 )
  52.     Poly( a 1 3 4 2 )
  53.     Poly( a 3 5 6 4 )
  54.     Poly( a 5 7 8 6 )
  55.     Poly( a 7 9 10 8 )
  56.     Poly( a 9 11 12 10 )
  57.     Poly( a 11 13 14 12 )
  58.     LineColor( 3 F0 )
  59.     MoveTo( 19 6 56 )
  60.     DrawTo( 19 26 56 )
  61.     Return
  62.  
  63. :beacon
  64.     IfVarAnd( :B1 282 3 )
  65.     LineColor( 0F F0 )
  66.     Jump( :B2 )
  67.  
  68. :B1
  69.     IfVarAnd( :B3 282 300 )
  70.     LineColor( 15 F0 )
  71. :B2
  72.     Dot( 0 100 0 )
  73. :B3
  74.     Return
  75.  
  76. EndA
  77.